home *** CD-ROM | disk | FTP | other *** search
- ; Installer script for MCommands
- ; $VER: Install MCommands 37.1 (20.3.94)
-
- (set @default-dest "C:")
-
- (set commdir "C/")
-
- ; ***************************************************************************
- ; English strings
-
- (set #bad-kick
- (cat "You must have AmigaDOS 2.04 or higher to use MCommands!")
- )
-
- (set #welcome
- (cat "\nMCommands installation\n\n\n"
- "This script installs MCommands 1.0\n"
- "on your Amiga.\n\n\n\n"
- "MCommands package is\n"
- "Copyright © 1994 Michael Letowski\n"
- "All rights reserved.\n\n")
- )
-
- (set #where-commands
- (cat "Where should MCommands be installed?")
- )
-
- (set #where-help
- (cat "\nBy default, all CLI commands are placed in C:"
- " logical directory. Hovewer, the commands can be"
- " placed in any directory, as long as it is added to"
- " search path by using \"Path\" command.\n\n")
- )
-
- (set #which-commands
- (cat "Which MCommands should be installed?")
- )
-
- (set #which-commands-help
- (cat "\n\n\"ChangeFont\" replaces topaz.font with user supplied one;"
- "\n\n\"ClickStart\" enables/disables AmigaDOS features;"
- "\n\n\"Examine\" checks type of file;"
- "\n\n\"For\" executes a command for multiple arguments;"
- "\n\n\"Touch\" changes date of file creation.\n\n\n")
- )
-
- ; ***************************************************************************
- ; Install MCommands
-
- ; Check AmigaDOS version
- (if (< (/ (getversion) 65536) 37)
- (
- (abort #bad-kick)
- )
- )
-
- (complete 0)
-
- (message #welcome)
-
- (welcome)
- (set old_level @user-level)
-
- (user 2)
- (set mcommandsdir
- (askdir
- (prompt #where-commands)
- (help #where-help)
- (default @default-dest)
- )
- )
-
- (set commands
- (askoptions
- (prompt #which-commands)
- (help #which-commands-help @askoptions-help)
- (choices
- "ChangeFont"
- "ClickStart"
- "Examine"
- "For"
- "Touch")
- ; (default )
- )
- )
-
- (user old_level)
- (set n 0)
- (while
- (set comm
- (select n
- "ChangeFont"
- "ClickStart"
- "Examine"
- "For"
- "Touch"
- "")
- )
- (
- (if (IN commands n)
- (copyfiles
- (source (cat commdir comm))
- (dest mcommandsdir)
- )
- )
- (set n (+ n 1))
- (complete (* n 20))
- )
- )
-
- (complete 100)
- (exit)
-